home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…tion Library 4 (Reseller) / Apple Ref. & Pres. Lib.v4.0.iso / 4-Demos / Apple Demos / CPUs / Macintosh Portable Tech Tour / Macintosh Portable Tech Tour / card_8343.txt < prev    next >
Encoding:
Text File  |  1990-03-19  |  2.0 KB  |  101 lines
  1. -- card: 8343 from stack: in
  2. -- bmap block id: 13584
  3. -- flags: 0000
  4. -- background id: 5664
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 00
  10. -- high flags: 0000
  11. -- rect: left=18 top=60 right=154 bottom=276
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 21
  16. -- text size: 24
  17. -- style flags: 0
  18. -- line height: 32
  19. -- part name: 
  20.  
  21.  
  22. -- part 2 (button)
  23. -- low flags: 00
  24. -- high flags: 0000
  25. -- rect: left=51 top=169 right=210 bottom=94
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 7872 / 7872
  28. -- text alignment: 1
  29. -- font id: 0
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: 
  34. ----- HyperTalk script -----
  35. on mouseUp
  36.   set cursor to none
  37.   visual dissolve to black
  38.   visual dissolve
  39.   go last cd
  40.   wait 4 secs
  41.   visual dissolve to black
  42.   visual dissolve
  43.   go first cd
  44. end mouseUp
  45.  
  46.  
  47.  
  48. -- part 3 (button)
  49. -- low flags: 00
  50. -- high flags: A001
  51. -- rect: left=408 top=61 right=165 bottom=489
  52. -- title width / last selected line: 0
  53. -- icon id / first selected line: 31685 / 31685
  54. -- text alignment: 1
  55. -- font id: 0
  56. -- text size: 12
  57. -- style flags: 0
  58. -- line height: 16
  59. -- part name: Help
  60. ----- HyperTalk script -----
  61. on mouseUp
  62.   lock screen
  63.   set the visible of me to false
  64.   unlock screen with dissolve
  65.   wait 4 secs
  66.   lock screen
  67.   set the visible of me to true
  68.   unlock screen with dissolve
  69. end mouseUp
  70.  
  71.  
  72.  
  73. -- part 6 (button)
  74. -- low flags: 00
  75. -- high flags: A000
  76. -- rect: left=430 top=168 right=189 bottom=472
  77. -- title width / last selected line: 0
  78. -- icon id / first selected line: 0 / 0
  79. -- text alignment: 1
  80. -- font id: 0
  81. -- text size: 12
  82. -- style flags: 0
  83. -- line height: 16
  84. -- part name: Exit
  85. ----- HyperTalk script -----
  86. on mouseUp
  87.   global camefrom,whatcard
  88.   if camefrom = "CD Directory" then go whatcard
  89.   else domenu quit HyperCard
  90. end mouseUp
  91.  
  92.  
  93.  
  94. -- part contents for background part 92
  95. ----- text -----
  96. Macintosh Portable Technical Tour
  97.  
  98. -- part contents for card part 1
  99. ----- text -----
  100. A Technical Look at the  Macintosh
  101. Portable.